home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1984 June
/
1984-06.d64
/
tape data files3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
276b
|
14 lines
300 rem * file *
310 rem * reader *
350 input"[147]what file";name$
360 ifname$="+1"then end
370 open1,1,0,name$:n=0:dimw$(16)
380 input#1,w$(n):n=n+1
390 ifw$(n-1)="-1"then410
400 goto380
410 close1:forx=0to(n-1):printw$(x):next
420 print"hit any key"
430 geta$:ifa$=""then430
450 run350
460 end